gusucode.com > 智睿政府网站管理系统 V2.1.0 > 智睿政府网站管理系统 V2.1.0\code\manage\Admin_Config.asp
<!--#include file="../Include/config.asp"-->
<!--#include file="Admin_check.asp"-->
<%
response.expires = 0
response.expiresabsolute = now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.cachecontrol = "no-cache"
if Instr(session("AdminPurview"),"|111,")=0 then
response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
response.end
end if
'========判断是否具有管理权限
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/Admin_css.css" type=text/css rel=stylesheet>
<script language="Javascript">
function display(ID)
{
if (document.getElementById(ID).style.display == "none") {
document.getElementById(ID).style.display = "";
}else{
document.getElementById(ID).style.display = "none";
}
}
</script>
<title>admin</title>
</head>
<body>
<%
Sub ADODB_SaveToFile(ByVal strBody,ByVal File)
On Error Resume Next
Dim objStream,FSFlag,fs,WriteFile
FSFlag = 1
If DEF_FSOString <> "" Then
Set fs = Server.CreateObject(DEF_FSOString)
If Err Then
FSFlag = 0
Err.Clear
Set fs = Nothing
End If
Else
FSFlag = 0
End If
If FSFlag = 1 Then
Set WriteFile = fs.CreateTextFile(Server.MapPath(File),True)
WriteFile.Write strBody
WriteFile.Close
Set Fs = Nothing
Else
Set objStream = Server.CreateObject("ADODB.Stream")
If Err.Number=-2147221005 Then
GBL_CHK_TempStr = "您的主机不支持ADODB.Stream，无法完成操作，请使用FTP等功能，将<font color=Red >Include/config.asp</font>文件内容替换成框中内容"
Err.Clear
Set objStream = Noting
Exit Sub
End If
With objStream
.Type = 2
.Open
.Charset = "GB2312"
.Position = objStream.Size
.WriteText = strBody
.SaveToFile Server.MapPath(File),2
.Close
End With
Set objStream = Nothing
End If
End Sub
If request("action")="Edit" then
SiteTitle = replace(Trim(Request.Form("SiteTitle")),CHR(34),"'")
Lelogo = replace(Trim(Request.Form("Images")),CHR(34),"'")
SiteUrl = replace(Trim(Request.Form("SiteUrl")),CHR(34),"'")
email = replace(Trim(Request.Form("email")),CHR(34),"'")
Tel = replace(Trim(Request.Form("Tel")),CHR(34),"'")
Address = replace(Trim(Request.Form("Address")),CHR(34),"'")
SitePath = replace(Trim(Request.Form("SitePath")),CHR(34),"'")
DataName = replace(Trim(Request.Form("DataName")),CHR(34),"'")
SqlNo = replace(Trim(Request.Form("SqlNo")),CHR(34),"'")
SiteUp = replace(Trim(Request.Form("SiteUp")),CHR(34),"'")
Sitekeywords = replace(Trim(Request.Form("Sitekeywords")),CHR(34),"'")
Sitedescription = replace(Trim(Request.Form("Sitedescription")),CHR(34),"'")
Htmledit = replace(Trim(Request.Form("Htmledit")),CHR(34),"'")
SiteTcp = replace(Trim(Request.Form("SiteTcp")),CHR(34),"'")
BadWord1 = replace(Trim(Request.Form("BadWord1")),CHR(34),"'")
bookoff = replace(Trim(Request.Form("bookoff")),CHR(34),"'")
Plsh = replace(Trim(Request.Form("Plsh")),CHR(34),"'")
Plwo = replace(Trim(Request.Form("Plwo")),CHR(34),"'")
Certif = replace(Trim(Request.Form("Certif")),CHR(34),"'")
Npass = replace(Trim(Request.Form("Npass")),CHR(34),"'")
Gover = replace(Trim(Request.Form("Gover")),CHR(34),"'")
Dim n,TempStr
TempStr = ""
TempStr = TempStr & chr(60) & "%" & VbCrLf
TempStr = TempStr & "Dim SiteTitle,Lelogo,SiteUrl,email,tel,address,SitePath,DataName,SqlNo,SiteUp,Sitekeywords,Sitedescription,Css,SiteTcp,BadWord1,seo,bookoff,Plsh,Plwo,Certif,Npass,Gover" & VbCrLf & VbCrLf
TempStr = TempStr & "'=====网站名称" & VbCrLf
TempStr = TempStr & "SiteTitle="& Chr(34) & SiteTitle & Chr(34) &"" & VbCrLf
TempStr = TempStr & "Lelogo="& Chr(34) & Lelogo & Chr(34) &"" & VbCrLf
TempStr = TempStr & "'=====注意不要随意更改" & VbCrLf
TempStr = TempStr & "SiteUrl="& Chr(34) & SiteUrl & Chr(34) &"" & VbCrLf
TempStr = TempStr & "'=====根目录直接用/" & VbCrLf
TempStr = TempStr & "email="& Chr(34) & email & Chr(34) &" '联系邮件" & VbCrLf
TempStr = TempStr & "tel="& Chr(34) & tel & Chr(34) &" '联系电话" & VbCrLf
TempStr = TempStr & "address="& Chr(34) & address & Chr(34) &" '联系地址" & VbCrLf
TempStr = TempStr & "SitePath="& Chr(34) & SitePath & Chr(34) &"" & VbCrLf & VbCrLf
TempStr = TempStr & "'==============================" & VbCrLf
TempStr = TempStr & "DataName="& Chr(34) & DataName & Chr(34) &" '数据库名称" & VbCrLf
TempStr = TempStr & "SqlNo="& Chr(34) & SqlNo & Chr(34) &" '数据库类型" & VbCrLf
TempStr = TempStr & "SiteUp="& Chr(34) & SiteUp & Chr(34) &"" & VbCrLf
TempStr = TempStr & "Sitekeywords="& Chr(34) & Sitekeywords & Chr(34) &"" & VbCrLf
TempStr = TempStr & "Sitedescription="& Chr(34) & Sitedescription & Chr(34) &"" & VbCrLf
TempStr = TempStr & "SiteTcp="& Chr(34) & SiteTcp & Chr(34) &"" & VbCrLf
TempStr = TempStr & "BadWord1="& Chr(34) & BadWord1 & Chr(34) &"" & VbCrLf
TempStr = TempStr & "'=====显示设置=====" & VbCrLf
TempStr = TempStr & "Gover="& Chr(34) & Gover & Chr(34) &"" & VbCrLf
TempStr = TempStr & "bookoff="& Chr(34) & bookoff & Chr(34) &"" & VbCrLf
TempStr = TempStr & "Plsh="& Chr(34) & Plsh & Chr(34) &"" & VbCrLf
TempStr = TempStr & "Plwo="& Chr(34) & Plwo & Chr(34) &"" & VbCrLf
TempStr = TempStr & "Certif="& Chr(34) & Certif & Chr(34) &"" & VbCrLf
TempStr = TempStr & "Npass="& Chr(34) & Npass & Chr(34) &"" & VbCrLf
TempStr = TempStr & "%" & chr(62) & VbCrLf
ADODB_SaveToFile TempStr,"../Include/Config.asp"
If GBL_CHK_TempStr = "" Then
Response.Write("<script language=javascript>alert('修改成功！');this.location.href='admin_Config.asp';</script>")
Else
%><table width=""98%"" align=""center"" border=""1"" cellspacing=""0"" cellpadding=""4"" class=lanyubk style=""border-collapse: collapse""><tr><td class=lanyuss>基本资料更新</td></tr><tr class=lanyuds><td align=""center"" height=""66"">><%=GBL_CHK_TempStr%><<br><br>
<textarea name="fileContent" cols="1" rows="1"><%=Server.htmlencode(TempStr)%></textarea></td></tr></table><%
GBL_CHK_TempStr = ""
End If
End if
%>
<form action="?Action=Edit" method="post" name="myform">
<table border="0" align="center" cellpadding="3" cellspacing="2" bgcolor="#FFFFFF" class="admintable">
<tr>
<td height="30" colspan="2" background="images/skin/th_bg.gif" class="admintitle"> 修改网站基本资料</td>
</tr>
<tr>
<td width="20%" height="25" bgcolor="EBF2F9" class="tdleft">网站名称：</td>
<td height="25" bgcolor="EBF2F9"><input name="SiteTitle" type="text" id="SiteTitle" value="<%=SiteTitle%>" size="40" class="textfield"></td>
</tr>
<tr>
<td width="20%" height="25" bgcolor="EBF2F9" class="tdleft">网站LOGO：</td>
<td height="25" bgcolor="EBF2F9">
<input name="Images" type="text" class="textfield" style="WIDTH: 240;" value="<%=Lelogo%>" maxlength="100">
<input type="checkbox" onClick="display('upload');" id="iox"/><label for='iox'>上传图片</label><br>
<div id="upload" style="display:none;">
<iframe frameborder=0 width=290 height=25 scrolling=no src="Admin_upload.asp?action=AD_Pic"></iframe>
</div>
</td>
</tr>
<tr>
<td height="25" bgcolor="EBF2F9" class="tdleft">登陆认证：</td>
<td height="12" bgcolor="EBF2F9"><input name="Certif"type="text" class="textfield" id="Certif" value="<%=Certif%>" size="40">
*登陆认证码</td>
</tr>
<tr>
<td height="25" bgcolor="EBF2F9" class="tdleft">下载密码：</td>
<td height="12" bgcolor="EBF2F9"><input name="Npass"type="text" class="textfield" id="Npass" value="<%=Npass%>" size="40">
*下载提示密码</td>
</tr>
<tr>
<td height="25" bgcolor="EBF2F9" class="tdleft">网站域名：</td>
<td height="12" bgcolor="EBF2F9"><input name="SiteUrl"type="text" class="textfield" id="SiteUrl" value="<%=SiteUrl%>" size="40">
如：www.ZhiRui.net,不要"http://"</td>
</tr>
<tr>
<td height="25" bgcolor="EBF2F9" class="tdleft">网站邮件：</td>
<td height="12" bgcolor="EBF2F9"><input name="email"type="text" class="textfield" id="mail" value="<%=email%>" size="40">
如：88888888@126.com</td>
</tr>
<tr>
<td height="25" bgcolor="EBF2F9" class="tdleft">联系电话：</td>
<td height="12" bgcolor="EBF2F9"><input name="Tel"type="text" class="textfield" id="Tel" value="<%=Tel%>" size="40">
如：010-88888888</td>
</tr>
<tr>
<td height="25" bgcolor="EBF2F9" class="tdleft">联系地址：</td>
<td height="12" bgcolor="EBF2F9"><input name="Address"type="text" class="textfield" id="Address" value="<%=Address%>" size="40">
如：中国北京朝阳路</td>
</tr>
<tr>
<td height="25" bgcolor="EBF2F9" class="tdleft">安装目录：</td>
<td height="-3" bgcolor="EBF2F9"><input name="SitePath"type="text" class="textfield" id="SitePath" value="<%=SitePath%>" size="40">
网站安装目录，根目录请填写"/"，暂不支持二级目录；</td>
</tr>
<tr>
<td height="25" bgcolor="EBF2F9" class="tdleft">数据库名称：</td>
<td height="0" bgcolor="EBF2F9"><input name="DataName"type="text" class="textfield" id="DataName" value="<%=DataName%>" size="40">
请更改Data目录下的数据库名称并在此填写,如SQL请手动修改inclunde/conn.asp </td>
</tr>
<tr>
<td height="25" bgcolor="EBF2F9" class="tdleft">数据库：</td>
<td bgcolor="EBF2F9"><input name="SqlNo" type="radio" class="noborder" value="1"<%IF ""&SqlNo&""=1 then Response.Write("checked") end if%>>
MSSQL
<input name="SqlNo" type="radio" class="noborder" value="0"<%IF ""&SqlNo&""=0 then Response.Write("checked") end if%>>
Access</td>
</tr>
<tr>
<td height="25" bgcolor="EBF2F9" class="tdleft">上传目录：</td>
<td height="5" bgcolor="EBF2F9"><input name="SiteUp"type="text" class="textfield" id="SiteUp" value="<%=SiteUp%>" size="40">
如更改此项,请手工更改上传目录名</td>
</tr>
<tr>
<td height="25" bgcolor="EBF2F9" class="tdleft">关 键 字：</td>
<td height="25" bgcolor="EBF2F9"><input name="SiteKeywords" type="text" class="textfield" id="SiteKeywords" value="<%=SiteKeywords%>" size="40">
网站针对搜索引擎的关键字</td>
</tr>
<tr>
<td height="25" bgcolor="EBF2F9" class="tdleft">网站描述：</td>
<td bgcolor="EBF2F9"><input name="Sitedescription" type="text" class="textfield" id="Sitedescription" value="<%=Sitedescription%>" size="100"></td>
</tr>
<tr>
<td height="25" bgcolor="EBF2F9" class="tdleft">备案序号：</td>
<td height="-3" bgcolor="EBF2F9"><input name="SiteTcp" type="text" class="textfield" id="SiteTcp" value="<%=SiteTcp%>" size="40"></td>
</tr>
<tr>
<td height="25" bgcolor="EBF2F9" class="tdleft">脏话过滤：</td>
<td height="0" bgcolor="EBF2F9"><input name="BadWord1" type="text" class="textfield" id="BadWord1" value="<%=BadWord1%>" size="100">
<br>请注意格式：不正确的格式可能导致文章内容页无法显示,每组过滤词用|隔开</td>
</tr>
<tr>
<td height="25" bgcolor="EBF2F9" class="tdleft">导航开关：</td>
<td bgcolor="EBF2F9"><input name="Gover" type="radio" class="noborder" value="1"<%IF ""&Gover&""=1 then Response.Write("checked") end if%>>
下拉菜单
<input name="Gover" type="radio" class="noborder" value="0"<%IF ""&Gover&""=0 then Response.Write("checked") end if%>>
无下拉菜单</td>
</tr>
<tr>
<td height="25" bgcolor="EBF2F9" class="tdleft">问政审核：</td>
<td bgcolor="EBF2F9"><input name="bookoff" type="radio" class="noborder" value="1"<%IF ""&bookoff&""=1 then Response.Write("checked") end if%>>
不需审核
<input name="bookoff" type="radio" class="noborder" value="0"<%IF ""&bookoff&""=0 then Response.Write("checked") end if%>>
需要审核</td>
</tr>
<tr>
<td height="25" bgcolor="EBF2F9" class="tdleft">评论审核：</td>
<td bgcolor="EBF2F9"><input name="Plsh" type="radio" class="noborder" value="1"<%IF ""&Plsh&""=1 then Response.Write("checked") end if%>>
不需审核
<input name="Plsh" type="radio" class="noborder" value="0"<%IF ""&Plsh&""=0 then Response.Write("checked") end if%>>
需要审核</td>
</tr>
<tr>
<td height="25" bgcolor="EBF2F9" class="tdleft">评论开关：</td>
<td bgcolor="EBF2F9"><input name="Plwo" type="radio" class="noborder" value="1"<%IF ""&Plwo&""=1 then Response.Write("checked") end if%>>
开启评论
<input name="Plwo" type="radio" class="noborder" value="0"<%IF ""&Plwo&""=0 then Response.Write("checked") end if%>>
关闭评论</td>
</tr>
</table>
<table border="0" align="center" cellpadding="3" cellspacing="2" bgcolor="#FFFFFF" class="admintable">
<tr>
<td height="25" align="center" bgcolor="EBF2F9"><input name="Submit" type="submit" class="button" id="Submit" value="确定修改"></td>
</tr>
</table>
</form>
<%
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If Err = 0 Then IsObjInstalled = True
If Err = -2147352567 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
</body>
</html>